FM Towns: Free Software Collection 7/FM Towns Free Software Collection 7.iso/ms_dos/dmove86/dmove86.c

Text File | 1993-11-30 | 4KB | 232 lines

/*

dmove86.c version 1.20a
Copyright (c) 1993 Delmonta

*/

#include<stdio.h>
#include<malloc.h>
#include<dos.h>
#include<ctype.h>
#include<process.h>
#include"dmove86.h"

int        Drive;
unsigned int    Fatsize;
struct DPB    Dpb;
unsigned int    *Fat;

recursive
int        control(parent)
struct DIRENTRY far *parent;
{
    struct DIRENTRY far **dirtbl;

    unsigned int    secnum;    /* そのディレクトリが占めるセクタ数    */
    unsigned int    dirnum;    /* ディレクトリエントリの数        */

register unsigned int    i,n;    /* ループカウンターなどの一時変数    */

    struct SECTBL    sectop;
    struct SECTBL    *sectbl;

REREAD:;
    secnum = 0;
    sectbl = §op;

    if    (parent == NULL)    /* ルートディレクトリの場合    */
    {
        for    (i=Dpb.iplsectors+Fatsize*Dpb.fatnum ;
                i<Dpb.data_sec ; i++)
        {
            struct SECTBL    *up;

            sectbl->next = (struct SECTBL *)malloc
                        (sizeof(struct SECTBL));

            if    (sectbl->next == NULL)
                goto ENDROOTDIR;

            up = sectbl;
            sectbl = up->next;

            sectbl->buf = (struct DIRENTRY far *)
                    farmalloc(Dpb.seclen);
            if    (sectbl->buf == NULL)
            {
                free(sectbl);
                up->next = NULL;
                goto ENDROOTDIR;
            }

            if    ((n=rdabssec(sectbl->buf,i,Drive)) & 0x100)
            {
                dm_errmes("セクタの読み込みに失敗しました");
                farfree(sectbl->buf);
                free(sectbl);
                up->next = NULL;
                goto ENDROOTDIR;
            }

            sectbl->num = i;
            secnum++;
            sectbl->next = NULL;
        }

ENDROOTDIR:;
    }
    else                /* サブディレクトリの場合    */
    {    unsigned int    cluster = parent->cluster;
        unsigned int    sector;

        do
        {
            sector = CL2SEC(cluster);

            for    (i=0 ; i<=Dpb.sec_clu ; i++)
            {

                struct SECTBL    *up = sectbl;

                up->next = (struct SECTBL *)malloc
                        (sizeof(struct SECTBL));

                sectbl = up->next;

                if    (sectbl == NULL)
                {
                    goto ENDSUBDIR;
                }
                sectbl->buf = (struct DIRENTRY far *)
                        farmalloc(Dpb.seclen);

                if    (sectbl->buf == NULL)
                {
                    free(sectbl);
                    up->next = NULL;
                    goto ENDSUBDIR;
                }

                if    ((n=rdabssec(sectbl->buf,
                        sector+i,Drive)) & 0x100)
                {
                    dm_errmes("セクタの読み込みに失敗しました");
                    farfree(sectbl->buf);
                    free(sectbl);
                    up->next = NULL;
                    goto ENDSUBDIR;
                }

                sectbl->num = sector+i;
                sectbl->next = NULL;
                secnum++;
            }
            cluster = Fat[cluster];
        } while    (cluster!=0xffff);
ENDSUBDIR:;
    }

    /* 以降、ルート／サブ共通の処理 */

    if    (secnum == 0)
    {
        dm_errmes("ディレクトリが全く読み込まれませんでした。");
        return 5;
    }

    sectbl = sectop.next;        /* 実はsectopはダミーなのです */

    dirtbl = (struct DIRENTRY far **)malloc(sizeof(struct DIRENTRY far *)
        * secnum * DIRSEC);

    if    (dirtbl == NULL)
    {
        freesectbl(sectop.next);
        dm_errmes("メモリ不足です。");
        return 4;
    }

    dirnum = n = 0;

    while(sectbl != NULL)
    {
        for    (i=0 ; i<DIRSEC ; i++)
        {
            dirtbl[n] = sectbl->buf + i;

            if    (dirtbl[n]->filename[0]=='\0' && dirnum==0)
                dirnum = n;

            n++;
        }

        sectbl = sectbl->next;
    }

    if    (dirnum == 0)
        dirnum = secnum*DIRSEC;

    i = 0;
REMENU:;

    i = dmmenu(dirtbl, dirnum, i/4, parent!=NULL);

    switch (i & 3)
    {
        case UPDIR:
            free(dirtbl);
            freesectbl(sectop.next);
            return 0;

        case CHGDIR:
            control(dirtbl[i/4]);
            break;

        case WRTDIR:
            writedir(sectop.next,dirtbl,dirnum);
            break;

        case ORIGIN:
            free(dirtbl);
            freesectbl(sectop.next);
            goto REREAD;

    }
    goto REMENU;
}

int    main(argc,argv)
int    argc;
char    *argv[];
{
    if    (argc != 2)
    {    printf("書式 : dmove86 <ドライブ名>\n");
        exit(1);
    }

    Drive = toupper(argv[1][0]) - 'A';

    if    (Drive<0 || Drive>25)
    {    printf("不正なドライブ名です.\n");
        exit(2);
    }

    if    (getdpb() == -1)
    {    printf("指定されたドライブは存在しません.\n");
        exit(2);
    }

    Fat = getfat();

    if    (Fat == NULL)
    {    printf("FATの読み込みに失敗しました.\n");
        exit(3);
    }

    mkscreen();

    return (control(NULL));
}